home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / fsmsg20d / FORM2.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-04-03  |  2.7 KB  |  75 lines
  1. VERSION 5.00
  2. Object=  "{90BE51A2-EA01-11D2-A3B6-000000000000}#1.0#0"; "fsMsgHook5D.ocx"
  3. Begin VB.Form Form2 
  4.    Caption         =   "fsMsgHook Demo - Multiple Windows Messages"
  5.    ClientHeight    =   3315
  6.    ClientLeft      =   60
  7.    ClientTop       =   1125
  8.    ClientWidth     =   4875
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   3315
  11.    ScaleWidth      =   4875
  12.    Begin FishheadMsgHook.fsMsgHook fsMsgHook1 
  13.       Left            =   1380
  14.       Top             =   1590
  15.       _ExtentX        =   741
  16.       _ExtentY        =   741
  17.    End
  18.    Begin VB.Label Label1 
  19.       BorderStyle     =   1  'Fixed Single
  20.       Caption         =   "To view the messages, please have the immediate (debug) window open."
  21.       Height          =   1095
  22.       Left            =   750
  23.       TabIndex        =   0
  24.       Top             =   210
  25.       Width           =   3195
  26.    End
  27.    Begin VB.Menu mnu_File 
  28.       Caption         =   "&File"
  29.       Begin VB.Menu mnuF_Exit 
  30.          Caption         =   "E&xit"
  31.       End
  32.    End
  33. Attribute VB_Name = "Form2"
  34. Attribute VB_GlobalNameSpace = False
  35. Attribute VB_Creatable = False
  36. Attribute VB_PredeclaredId = True
  37. Attribute VB_Exposed = False
  38. ' **************************************************************
  39. ' ** Created by:  Fishhead Software
  40. ' ** URL:         http://www.fishware.com
  41. ' **              mailto://support@fishware.com
  42. ' **------------------------------------------------------------
  43. ' ** Project:     fsMsgHook Demo
  44. ' ** Version:     1.00
  45. ' ** Description: Multiple Windows
  46. ' ** This demo shows how fsMsgHook can handle multiple windows
  47. ' ** and their messages.  To get the full benefit of this demo,
  48. ' ** the immediate window must be visible.
  49. ' **------------------------------------------------------------
  50. ' ** Notes:       July 24, 1998 Created
  51. ' **************************************************************
  52. Option Explicit
  53. Private Sub Form_Load()
  54.     Me.Caption = "First Window -" & Str$(Me.hwnd)
  55.     Debug.Print "form2", Me.hwnd
  56.     ' Get this form
  57.     fsMsgHook1.Add Form2.hwnd
  58.     Form2.Show
  59.     ' Get the second form
  60.     fsMsgHook1.Add Form3.hwnd
  61.     Form3.Show
  62. End Sub
  63. Private Sub Form_Unload(Cancel As Integer)
  64.     Unload Form3
  65.     Set Form2 = Nothing
  66. End Sub
  67. Private Sub fsMsgHook1_WndProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long, bForward As Boolean, Result As Long)
  68.     ' Update immediate window
  69.     Debug.Print "Hwnd:" & Str$(hwnd) & vbTab & vbTab & "uMsg:" & Hex$(uMsg) & vbTab & vbTab & "wParam:" & Hex$(wParam) & vbTab & vbTab & "lParam:" & Hex$(lParam)
  70. End Sub
  71. 'Terminate program
  72. Private Sub mnuFileExit_Click()
  73.     Unload Me
  74. End Sub
  75.